The Netherlands - A Compact World/The Netherlands.iso/dev/links.dxr/00012_scrolldown.ls

Text File | 2002-01-09 | 578 b | 34 lines

on mouseDown me
  global ankertje, scrolldown
  member(sprite(6).member).scrollTop = member(sprite(6).member).scrollTop + 10
  ankertje = the milliSeconds
  scrolldown = 1
end

on enterFrame
  global scrolldown, ankertje
  if scrolldown = 1 then
    if the milliSeconds > (ankertje + 300) then
      member(sprite(6).member).scrollTop = member(sprite(6).member).scrollTop + 5
    end if
  end if
end

on mouseUp
  global scrolldown
  scrolldown = 0
end

on mouseUpOutSide
  global scrolldown
  scrolldown = 0
end

on mouseEnter
  cursor(280)
end

on mouseLeave
  cursor(-1)
end